#!/usr/bin/tclsh
#
# Subscribe to market data for n seconds,
#
lappend auto_path ../lib
package require tclva
source ./trap.tcl

set v [tclva]
$v setDebugMode "true"
$v connect "10.33.13.101"
$v subscribe "EUR=.FR"
$v subscribe "AUD=.FR"

# run for 10 seconds
set end 0
after 10000 {set end 1}
while {!$end} {
    set upd [$v getData]
    if {$upd != ""} {
        puts "\n$upd"
    }
    update
}

$v -delete
